home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo1.bas < prev    next >
BASIC Source File  |  1999-06-15  |  1KB  |  61 lines
  1. /*==== -: "OBJ_18.SP" ｶﾝｲ ﾃﾞﾓ ﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,pl
  3. int anm_flg,anm_flg2
  4. int palet_block=0,plb
  5. char kyc
  6. float pi_=pi()*2
  7. int px,py,nx,chr_no
  8.  
  9. /*==== -: screen init. :- ====
  10. screen 0,2,1,1 : window(  0,  0,511,511)
  11. vpage(&B01) : apage(&B00)
  12. sp_init() : sp_disp(1)
  13.  
  14. spfile_def("OBJ_18.SP",0)
  15. palfile_def("OBJ_18.PAL",1)
  16.  
  17. for i=0 to 15
  18.     palet(i,sp_color(i,,1+palet_block))
  19.     fill(i*8,16, i*8+6,22,i)
  20. next
  21.  
  22. /*==== -: main demo :- ====
  23.  
  24. while 1
  25.     kyc=asc(inkey$(0))
  26.     if kyc = &H1B then break
  27.     if kyc = &H20 then {
  28.         palet_block=palet_block+1
  29.         if palet_block = 14 then palet_block=0
  30.         locate 0,0 : print using "P.B.:##";palet_block+1
  31.         for i=0 to 15
  32.             palet(i,sp_color(i,,1+palet_block))
  33. /*            fill(i*8,32,i*8+6,38,i)
  34.         next
  35.         plb=palet_block shl 8
  36.     }
  37.  
  38.     anm_flg=anm_flg+1 and 7
  39.     anm_flg2=anm_flg2+1 and 15
  40.  
  41.     nx=nx+1 and 255
  42.     if nx = 0 then {
  43.         chr_no=chr_no+1
  44.         if chr_no = 10 then chr_no=0
  45.     }
  46.     px=264-nx
  47.     py=224-sin(pi_*nx/96)*32
  48.  
  49.     v_disp()
  50.     sp_set( 64,px,py,&H108+plb+(anm_flg2 shr 1)+(chr_no shl 4),3)
  51.     for i=0 to 9
  52.         sp_set(   i, 24+i*24, 64,&H100+plb+anm_flg+(i shl 4),3)
  53.         sp_set(16+i, 24+i*24, 96,&H108+plb+anm_flg+(i shl 4),3)
  54.     next
  55.     v_disp()
  56.     for i=0 to 9
  57.         sp_set(32+i, 24+i*24,128,&H100+plb+(anm_flg2 shr 1)+(i shl 4),3)
  58.         sp_set(48+i, 24+i*24,160,&H108+plb+(anm_flg2 shr 1)+(i shl 4),3)
  59.     next
  60. endwhile
  61.